CalcPurchase <- function(alpha,RLA_Rate,BNcK_Rate,RecertSchedule,Scale) {
#   alpha,BNcKProb,RecertSchedule,Demand,Scale)

#   Parts = length(BNcK_Rate)
#   Year = length(RecertSchedule)
#   Avg = median(BNcKProb)
  
#   Inv_Rate = max(BNcK_Rate) +min(BNcK_Rate) -BNcK_Rate
#   
#   PurchaseRate = alpha*Inv_Rate + (1-alpha)*BNcK_Rate
  PurchaseRate = (alpha*RLA_Rate + (1-alpha)*BNcK_Rate) *Scale
  
  Purchase = ceiling(outer(PurchaseRate,RecertSchedule))
  #   BOMPart <- seq(1,Parts,by=1)
  
  #   plot(BNcKProb,type="l",col="dark red")
  #   lines(InvProbs,type="l",col="blue")
  
  return(Purchase)
}